object frmPesquisaCliFor: TfrmPesquisaCliFor
  Left = 234
  Top = 94
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Pesquisa de clientes/fornecedores'
  ClientHeight = 502
  ClientWidth = 815
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object rgTipoPesquisa: TRadioGroup
    Left = 8
    Top = 8
    Width = 217
    Height = 73
    Caption = 'Pesquisar por...'
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      'Clientes'
      'Fornecedores')
    TabOrder = 0
    OnClick = rgTipoPesquisaClick
  end
  object PageControl: TPageControl
    Left = 8
    Top = 87
    Width = 800
    Height = 377
    ActivePage = TabSheetClientes
    TabOrder = 2
    object TabSheetClientes: TTabSheet
      Caption = 'Clientes'
      ExplicitLeft = 0
      ExplicitWidth = 857
      ExplicitHeight = 389
      object DBGridClientes: TDBGrid
        Left = 0
        Top = 0
        Width = 792
        Height = 349
        Align = alClient
        DataSource = dsTblcli
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Tahoma'
        Font.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
        ParentFont = False
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'clicpf'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'Tahoma'
            Font.Style = []
            Title.Caption = 'CPF/CNPJ'
            Title.Font.Charset = DEFAULT_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -16
            Title.Font.Name = 'Tahoma'
            Title.Font.Style = []
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'clirg'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'Tahoma'
            Font.Style = []
            Title.Caption = 'RG'
            Title.Font.Charset = DEFAULT_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -16
            Title.Font.Name = 'Tahoma'
            Title.Font.Style = []
            Width = 140
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'clinome'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'Tahoma'
            Font.Style = []
            Title.Caption = 'Nome do cliente'
            Title.Font.Charset = DEFAULT_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -16
            Title.Font.Name = 'Tahoma'
            Title.Font.Style = []
            Width = 430
            Visible = True
          end>
      end
    end
    object TabSheetFornecedores: TTabSheet
      Caption = 'Fornecedores'
      ImageIndex = 1
      ExplicitWidth = 281
      ExplicitHeight = 165
      object DBGridFornecedores: TDBGrid
        Left = 0
        Top = 0
        Width = 792
        Height = 349
        Align = alClient
        DataSource = dsTblfor
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Tahoma'
        Font.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
        ParentFont = False
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'forcnpj'
            Title.Caption = 'CNPJ/CPF'
            Title.Font.Charset = DEFAULT_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -16
            Title.Font.Name = 'Tahoma'
            Title.Font.Style = []
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'forie'
            Title.Caption = 'IE'
            Title.Font.Charset = DEFAULT_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -16
            Title.Font.Name = 'Tahoma'
            Title.Font.Style = []
            Width = 140
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'forrazaosocial'
            Title.Caption = 'Raz'#227'o social'
            Title.Font.Charset = DEFAULT_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -16
            Title.Font.Name = 'Tahoma'
            Title.Font.Style = []
            Width = 427
            Visible = True
          end>
      end
    end
  end
  object GroupBox1: TGroupBox
    Left = 231
    Top = 8
    Width = 577
    Height = 73
    Caption = 'Filtros'
    TabOrder = 1
    object edtPesquisa: TLabeledEdit
      Left = 32
      Top = 30
      Width = 513
      Height = 27
      EditLabel.Width = 307
      EditLabel.Height = 13
      EditLabel.Caption = 'Pesquisa por CNPJ, CPF, Rz'#227'o social ou Nome do cliente'
      EditLabel.Font.Charset = DEFAULT_CHARSET
      EditLabel.Font.Color = clWindowText
      EditLabel.Font.Height = -11
      EditLabel.Font.Name = 'Tahoma'
      EditLabel.Font.Style = [fsBold]
      EditLabel.ParentFont = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnChange = edtPesquisaChange
      OnKeyDown = edtPesquisaKeyDown
    end
  end
  object btnOk: TBitBtn
    Left = 656
    Top = 470
    Width = 75
    Height = 25
    Kind = bkOK
    NumGlyphs = 2
    TabOrder = 3
  end
  object btnCancelar: TBitBtn
    Left = 732
    Top = 470
    Width = 75
    Height = 25
    Caption = 'Cancelar'
    Kind = bkCancel
    NumGlyphs = 2
    TabOrder = 4
  end
  object dsTblcli: TDataSource
    DataSet = dmDadosClientes.cdsTblcli
    Left = 268
    Top = 264
  end
  object dsTblfor: TDataSource
    DataSet = dmDadosFornecedores.cdsTblfor
    Left = 460
    Top = 264
  end
end
